perm filename NC.PSC[1,RWF] blob sn#728178 filedate 1983-09-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program nc(output)
C00003 ENDMK
CāŠ—;
program nc(output);
var r,c:integer;
begin
for r:=0 to 10 do
   begin
   for c:=1 to 15 do
      if c<=5 then write('A')
      else if c>=11 then write('B')else write('C');
   writeln
   end
end.